PC Answers 1998 January/PC Answers Issue 49 Cover CD January 1998.iso/MEDIA/MAIN.DXR/Internal_9_prep. handlers - to be removed.ls

Text File | 1997-10-01 | 728 b | 26 lines

on scanAnimateCast
  global tAnimateL
  set pointerL to [500, 800, 1000]
  set tAnimateL to [[], [], [], []]
  set count to 1
  set begin to 1
  repeat with i = 1 to the number of castMembers of castLib "animate"
    if the type of member i of castLib "animate" = #bitmap then
      nothing()
      next repeat
    end if
    if the type of member i of castLib "animate" = #empty then
      append(getAt(tAnimateL, count), begin)
      append(getAt(tAnimateL, count), i - 1)
      set begin to i + 1
      next repeat
    end if
    if the type of member i of castLib "animate" = #field then
      if count < 4 then
        set i to getAt(pointerL, count)
        set count to count + 1
      end if
    end if
  end repeat
end